home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO003.dsk / DEMOS / INFO.bas < prev    next >
BASIC Source File  |  2012-02-16  |  264b  |  12 lines
  1. 10 D$ =  CHR$(4)
  2. 20  ONERR  GOTO 100
  3. 25  PRINT D$"-/PRODOS.03/TYPE.CMD"
  4. 30  HOME 
  5. 35 I = I +1
  6. 40  PRINT D$;"TYPE /PRODOS.03/TEXT/INFO";I
  7. 50  PRINT : PRINT : GET A$
  8. 60  IF A$ < >"Q"  THEN 30
  9. 100  HOME 
  10. 110  PRINT D$;"PREFIX /PRODOS.03"
  11. 120  PRINT D$;"CAT"
  12. 130  END